***************************************************************** 



Disk Map of sectors used by Cold Boot, Warm Boot, Firmware, 
and CP/M: 



* Cbios for CP/M Ver 2.2 for Disk Jockey 2D controller (all 

* revs, and models A & B) . Handles diskettes with sector sizes 

* of 128 bytes single density, 256, 512, 1024 bytes double 

* density. There are conditional assemblies for Diskus Hard 

* Disk Controller. 
* 

* Written by Bobby Dale Gifford. 

* 12/3/30 
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***************************************************************** 

title '*** Cbios For CP/M Ver. 2.2 ***' 

***************************************************************** 

* * 

* The following revision number is in reference to the CP/M * 

* 2.2 Cbios. * 

* * 

***************************************************************** 



trk 





■ 









3 










1 



sec 1 = First sector of cold boot. 

2 = Cold boot 256. 

3 = Cold boot 512. 

4 = Cold boot 1024. 

5 = Warm boot 256. 

6 = Warm boot 512. 

7 = Warm boot 1024. 
3 = Cold/Warm boot . 
9 = Firmware. 

10 = Firmware+30h . 

11 = Firmware+100h 

12 = Firmware+180h. 

13 = Firmware+200h. 

14 = Firmware+230h. 

15 = Firmware+300h. 

16 = Firmware+380h. 

17 = CCP. 

10 = CCP+80h. 
12 = CCP+100h. 
14 = CCP+180h. 
16 = CCP+200h. 

18 = CCP+280h. 
20 = CCP+300h. 
22 = CCP+380h. 
24 = CCP+400h. 
26 = CCP+480h. 

= Rest of CP/M. 



e700h 
80h 

80h 

80h 

80h 

80h 

80h 

2c00h 

e400h 
e480h 
e500h 
e580h 
e600h 
e680h 

e700h 
e730h 
2700h 
2780h 
2300h 
2880h 

2900h 
2930h 
2a00h 
2a80h 
2b00h 
2b80h 
2c00h-4fffh 



CBIOS % .fiSty 



/uc cusS ®'-*^ 



revnum equ 28 
cpmrev equ 22 



; Cbios revision number 
•CP/M revision number 



***************************************************************** 
* * 

* 

* * 

***************************************************************** 



The following equates set up the relationship between the 
* 2D floppies and the Hard Disk Controllers. 



first equ ^^" 



o 



;0 = Floppies are A.,B,C,D drives and 



!•"" 



/ 



maxhd 
maxf lop 


equ 
equ 


y^ 


M26 
M20 

M10 


equ 
equ 
equ 


i 





sdelay 


if 

equ 

else 


ml0 or m20 



sdelay 


equ 
endif 


1 



;1 = Hard Disks are A,B,C,D drives and 

Floppies are E,F,G,H 
; Set to number of hard disks 
;Set to number of floppies 

;Set only one of these variables 



;Software head settle delay (0 = no, 1 = yes) 




I 



mrev equ 

logdsk equ 
hdspt equ 



26*m26+20*m20+10*ml0 ;Hard disk type 

3*m26+3*m20+2*ml0 ; Logical disks per drive 

3 2 * m2 6 +212jB2&t212lBl£^^ .,,.... ... 



***************************************************************** 

* * 

* The following equates selects the type of I/O to be included * 

* with the Cbios. * 

* * 
***************************************************************** 



iotype equ 



swbd 



equ 



^ z 



= No I/O, jmp to self configuration 

1 = Disk Jockey 2D I/O as console 

2 = Switchboard as console 

3 = SOL as console 

4 = EXIDY as console 

= No switchboard printer implementations 

1 = Include Switchboard routines 




base 



if 

equ 

endif 



(iotype sq 2) or swbd 

;Base of the SWITCHBOARD 



,,*.*,*.*.****-*-*■*'*■**-* * * * * * * ******************************************** 

* * 

* The following equates relate the Thinker Toys 2D controller. * 

* If the controller is non standard (0E000H) only the ORIGIN * 

* equate need be changed. This version of the Cbios will work * 

* with 2D controller boards rev 0, 1, 3, 3.1, 4, Model B. * 

* * 
***************************************************************** 





if 


maxflop ne 


# 


origin 


equ 


0E000H 




d jrarn 


equ 


origin+400h 




d jboot 


equ 


djram 




d jcin 


equ 


origin+3h 




djcout 


equ 


origin+6h 




d jhome 


equ 


d jram+9h 




djtrk 


equ 


djram+0ch 




d jsec 


equ 


d jram+0fh 




d jdma 


equ 


djram+012h 




djread 


equ 


djram+15h 




djwrite 


equ 


djram+18h 




djsel 


equ 


d jram+lbh 




djtstat 


equ 


origin+21h 




d jstat 


equ 


d jram+27h 




djerr 


equ 


djram+2ah 




d jden 


equ 


d jram+2dh 




A -i a i r\ a 


drill 


i1 , irani+'? Rfh 


. 



y Include Discus 2D ? 

Disk Jockey 2D RAM address 

Disk Jockey 2D initialization 

Disk Jockey 2D character input routine 

Disk Jockey 2D character output routine 

Disk Jockey 2D track zero seek 

Disk Jockey 2D track seek routine 

Disk Jockey 2D set sector routine 

Disk Jockey 2D set DMA address 

Disk Jockey 2D read routine 

Disk Jockey 2D write routine 

Disk Jockey 2D select drive routine 

Disk Jockey 2D terminal status routine 

Disk Jockey 2D status routine 

Disk Jockey 2D error, flash led 

Disk Jockey 2D set density routine 

DisV .Tnr-Tcf^v 7V) =s^h side routine 



dblsid equ 

endif 



;Side bit from controller 



***************************************************************** 

* * 

* The following equates are for the Diskus Hard disk wanted. * 

* * 

***************************************************************** 





if 


maxhd ne 


hdorg 


equ 


50h 


hdstat 


equ 


hdorg 


hdcntl 


equ 


hdorg 


hddata 


equ 


hdorg+3 


hdfunc 


equ 


hdorg+2 


hdcmnd 


equ 


hdorg+1 


hdreslt 


equ 


hdorg+1 


retry 


equ 


2 


tkzero 


equ 


1 


opdone 


equ 


2 


coraplt 


equ 


4 


tmout 


equ 


8 


wfault 


equ 


10h 


drvrdy 


equ 


20h 


index 


equ 


40h 


pstep 


equ 


4 


nstep 


equ 


0fbh 


hdrlen 


equ 


4 


seclen 


equ 


512 


wenabl 


equ 


0fh 


wreset 


equ 


0bh 


scenbl 


equ 


5 


dskclk 


equ 


7 


radir 


equ 


0f7h 


null 


equ 


0fch 


idbuff 


equ 





isbuf f 


equ 


3 


rsect 


equ 


1 


wsect 


equ 


5 



Want Hard Disk included ? 

Hard Disk Controller origin 

Hard Disk Status 

Hard Disk Control 

Hard Disk Data 

Hard Disk Function 

Hard Disk Command 

Hard Disk Result 

Retry bit of result 

Track zero bit of status 

Operaction done bit of status 

Complete bit of status 

Time out bit of status 

Write fault bit of status 

Drive ready bit of status 

Index bit of status 

Step bit of function 

Step bit mask of function 

Sector header length 

Sector data length 

Write enable 

Write reset of function 

Controller control 

Disk clock for control 

Direction mask for function 

Null command 

Initialize data command 

Initialize header command 

Read sector command 

Write sector command 



endif 



***************************************************************** 

* * 

* CP/M system equates. If reconfiguration of the CP/M system * 

* is being done, the changes can be made to the following * 

* equates . * 



%60 



***************************************************************** 

Memory size of target CP/M 

Memory offset from 20k system y o qQ 

Console command processor -JR-tqo 

BDOS address *"; >) 

CBIOS address $£e,o 

Offset for sysgen ■$"$&& 

Address of last logged disk 

Default buffer address 

Transient memory 

Initial IOBYTE 

IOBYTE location 

Warm boot jump address 

BDOS entry jump address 

***************************************************************** 
* * 

* TVi a •fv->1 1 rvi.T-i nn ar-a in-t-ar-nal rh i/^ea omiafoo. Mr»e+- arA mi OP . * 




msize 


equ 


J^r ± e* 


bias 


equ 


(msize-20)*1024 


ccp 


equ 


2700h+bias 


bdos 


equ 


ccp+800h 


bios 


equ 


ccp+1600h 


of fsetc 


equ 


2700h-bios 


cdisk 


equ 


4 


buff 


equ 


80h 


tpa 


equ 


100h 


intioby 


equ 


j»r 1 J z^ 


iobyte 


equ 


3 


wbot 


equ 





entry 


equ 


5 



2^ 




* constants . * 

* * 

***************************************************************** 



;Max retries on disk i/o before error 
;A carriage return 
j A line feed 

*************************** 



****** 



retries equ 10 
acr equ 0dh 
alf equ 0ah 

********* it)* ******************** 
* 

* The jump table below must remain in the same order, the 

* routines may be changed, but the function executed must be * 

* the same . * 

* * 

***************************************************************** 




org 



bios 



wboote 



cout 



cout 



3 m P 


^ cboot 






jmp 


^ wboot 




if 


iotype 


ne 


limp 


""' const 




Dmp 


^ conxn 




D m P 


/ conout 




jmp 


-" list 




jmp 


^ punch 




jmp 


S reader 




rsd.se 






DmP 


f / 


Dmp 
-jmp 








D^P. 


-"■ $ 






"■j'mp 








end if 


"\. 






jmp 


<y home 




jmp 


y setdrv 




jmp 


s settrk 




jmp 


u- setsec 




jmp 


s setdma 




jmp 


y read 




jmp 


</write 




if 


iotype 


ne 


jmp 


v listst 







>/ 



</ 






endif 
jmp 



S 



sectran 



djdrv 



if max flop ne. 
jmp ^ djsel 



;CBIOS starting address 

;Cold boot entry point 
;Warm boot entry point 



Console status routine 
Console input 
Console output 
List device output 
Punch device output 
Reader device input 

Console status routine 
Console input 
Console output 
List device output 
Punch device output 
Reader device input 



;Home drive 
; Select disk 
;Set track 
;Set sector 
;Set DMA address 
?Read the disk 
;Write the disk 



;List device status 
;List device status 
; Sector translation 

;Hook for SINGLE.COM program 



***************************************************************** 

* * 

* Terminal driver routines. Iobyte is initialized by the cold * 

* boot routine, to modify, change the "intioby" equate. The * 

* I/O routines that follow all work exactly the same way. Using * 

* iobyte, they obtain the address to jump to in order to execute* 

* the desired function. There is a table with four entries for * 

* oan>i o-f fho nnooihlo 3«oinnmpnt-5 -For" f^cVi r?P>Vir , P>. Tn rnodi f V * 










^jt T)( fff**- ^ 

U 






<^ l *''«fj , " ^ ' = 't-V-"' ,, 



y 



if /* 






* the I/O routines for a different I/O configuration, just * 

* change the entries in the tables . * 

* * 

***************************************************************** 




■ ti - nife - 



if 



iotype eq 2 
<9 to4 »iifc i» " — » 



cstty 


Dmp 


citty 


jmp 


cotty 


jmp 



swbdst 
swbdin 
swbdout 



eie-ar- 




? Blank i/O 



;Disk Jockey 2D I/O configuation 



; Clear screen char on ADM3 terminal 
.•Initialize the terminal routine 



,.-<-'* 



,*s 



', Switchboard as console configuration 



; Clear— screen -cha-r--t>n— ADM3- t^nrrrna~l 



; Initialize the terminal routin 



;Get switchboard status 



;Strip off parity 



;Check status 




;Sol I/O configuration 



solos 



e -i nr*\ 



(iTG^00h 
<arO na+1 -Flo 



sout \ equ 
clear \ equ 

solinit 



cssol 



solos+19h 
0bh 

c, clear 
cout 

statchr 

a 

a,0ffh 

sinp 
zzret 
statchr, 
a,0ffh 




solout 



lastchr 



mov 




exidy 
exdyin 
exdyou 
clear 

exinit 



csexdy 



iotype eq 4 

exinit 

csexdy 

exin 

exout 

0e000h 
exidy+9 
exidy+ 
lah 

/ 
c,c/ear 
coux 

/a # 0ffh 



?Exidy I/O configuration 



? Exidy monitor 
; Exidy input 

; Exidy output 



.•Initialize the terminal routine 



/ 



7.7.rpt 



rnz 

call \/ exdyin 

jz f\ zzret 

sta / \ statchr 

mvi/ \ a, 0f f"h 

re* 

vrfc 



Y 




T 



exm >mvi 
statchi/equ 
xra 
/ sta 
mov 
ani 
rnz 
call 
jmp 

xout mov 
jmp 
endif 




a \ 

statchr 
a,b \ 
7fh 

csexdy 
exin 



a,c 
exdyout 



***************************************************************** 

* * 

* The following equates set all these I/O devices to output * 

* in the selected method. * 

* * 

***************************************************************** 



cocrt 


equ 


$ 


coucl 


equ 


$ 


coptp 


equ 


$ 


coupl 


equ 


$ 


coup2 


equ 


$ 


colpt 


equ 


$ 




if 


swbd 


coswbd 


in 


baseif2 




ani 


30h 




jz 


coswbd 




mov 


a,c 




out 


base+1 




ret 






else 






if 


iotype eq 3 


aout 


equ 


solos+01ch 




mvi 


a, 2 




mov 


b,c 




jmp 


aout 




else 






if 


iotype eq 4 


exparrl 


equ 


exidy+21h 




jmp 


exparrl 




else 






jmp 


cotty 




endif 






endif 






endif 




*************************** 


* 






* Pn<=+-/"» 


m T /r\ i-»i 


f"T -r*+-£5V ^riTrar 



; Output from crt 

; Output from user console 1 

; Output from paper tape punch 

; Output from user punch 1 

; Output from user punch 2 

; Output from line printer 



;Wait until ok to send 
; output the character 



;Exidy parallel output 



;Default to console 



Custom I/O printer driver for Diablo printer with 1200 baud * 

* ETX/ACK handshake. * 

* * 

***************************************************************** 





if 


swbd 


aetx 


equ 


3 


aack 


equ 


6. 


coull 


call 


colpt 




mvi 


a, 50 


nount 


<=»rrn 


S-l 



;A ETX char 
;A ACK char 
; Output the character 





dcr 


a 




sta 


count 




rnz 






mvi 


a, 50 




sta 


count 




mvi 


c,aetx 




call 


colpt 


pwait 


call 


ciptr 




cpi 


aack 




jnz 


pwait 




ret 






else 




coull 


equ 

endif 


colpt 



;Otherwise default to printer 



***************************************************************** 

* * 

* The following equates set the input from the devices to come * 

* from the selected method. * 

* * 

***************************************************************** 



ciucl 


equ 


$ 


cicrt 


equ 


$ 


ciurl 


equ 


$ 


ciur2 


equ 


$ 


ciptr 


equ 


$ 




if 


swbd 


ciswbd 


in 


base+2 




ani 


40h 




Dz 


ciswbd 




in 


base+1 




am 


7fh 




ret 






else 






Dmp 


citty 




endif 





; Input from user console 1 

; Input from crt 

; Input from user reader 1 

; Input -from user reader 2 

; Input from paper tape reader 



; Input from paper tape reader 
;Wait for character 



; Strip off the parity 
;Default to input from tty 



***************************************************************** 

* * 

* The following equates cause the devices to get status in * 

* the selected way. * 

* * 

***************************************************************** 



csurl equ $ 

csur2 equ $ 

csptr equ $ 

csucl equ $ 

cscrt equ $ 





if 


swbd 


csswbd 


in 


base+2 




anx 


40h 




xri 


40h 




mvi 


a,0 




rz 






dcr 


a 




ret 






else 






jmp 


cstty 




endif 





; Status of user reader 1 
; Status of user reader 2 
; Status of paper tape reader 
; Status of user console 1 
.•Status from crt 



;Strip of data ready bit 
;Make correct polarity 



; Default to status from console 



***************************************************************** 
* * 



* List device status routines. * 

* * 

***************************************************************** 





if 


swbd 


Islpt 


in 

ani 

rz 

else 


base+2 

80h 


lslpt 


equ 
endif 


$ 


ready 


mvi 

ret 


a,0ffh 



;A11 other devices wait 



***************************************************************** 

* * 

* const: get the status for the currently assigned console * 

* device. The console device can be gotten from iobyte, * 

* then a jump to the correct console status routine is * 

* performed. * 

* * 

***************************************************************** 



const lxi 
jmp 



h,cstble 
coninl 



; Beginning of jump table 
; Select correct jump 



***************************************************************** 

* * 

* csreader: if the console is assigned to the reader then a * 

* jump will be made here, where another jump will * 

* occur to the correct reader status . * 

* * 

***************************************************************** 



csreadr lxi 
jmp 



h,csrtble 
readera 



; Beginning of reader status table 



***************************************************************** 

* * 

* conin: take the correct jump for the console input routine. * 

* The jump is based on the two least significant bits of * 

* iobyte . * 

* * 

***************************************************************** 



conin call 
lxi 



flush 
h,citble 



; Flush the disk buffer 

; Beginning of character input table 



* Entry at coninl will decode the two least significant bits 

* of iobyte. This is used by conin, conout, and const. 



coninl Ida 
ral 



iobyte 



* Entry at seldev will form an offset into the table pointed 

* to by H&L and then pick up the address and jump there. 



seldev ani 6h 

mvi d,0 

mov e , a 

dad d 

mov a.m 



; Strip off unwanted bits 
; Form offset 

;A.dd offset 

;Pick ud hi ah bvte 





mx 


h 




mov 


h,m 




mov 


l,a 


dopchl 


pchl 





;Pick up low byte 
;Form address 
;Go there I 

***************************************************************** 

* * 

* conout: take the proper branch address based on the two least * 

* significant bits of iobyte. * 

* * 

***************************************************************** 

conout push b ; Save the character 

call flush ;Flush the disk buffer 

pop b ; Restore the character 

lxi h,cotble ; Beginning of the character out table 

jmp coninl ;Do the decode 

***************************************************************** 

* * 

* reader; select the correct reader device for input. The * 

* reader is selected from bits 2 and 3 of iobyte. * 

* * 

***************************************************************** 

reader lxi h.rtble ; Beginning of reader input table 

* 

* Entry at readera will decode bits 2 & 3 of iobyte, used 

* by csreader. 
* 

readera Ida iobyte 

* 

* Entry at readerl will shift the bits into position, used 

* by list and punch. 
* 

readrl rar 

jmp seldev 

***************************************************************** 

* * 

* punch: select the correct punch device. The selection comes * 

* from bits 4&5 of iobyte. * 

* * 

***************************************************************** 

punch lxi h,ptble ; Beginning of punch table 
Ida iobyte 

* 

* Entry at pnchl rotates bits a little more in prep for 

* seldev, used by list. 
* 

pnchl rar 
rar 
jmp readrl 

***************************************************************** 

* * 

* list: select a list device based on bits 6&7 of iobyte * 

* * 

***************************************************************** 



list lxi 

listl Ida 

rar 

rar 

jmp 



h,ltble 
iobyte 



pnchl 



; Beginning of the list device routines 



***************************************************************** 

* * 

* Listst: Get the status of the currently assigned list device * 

* * 

***************************************************************** 



listst lxi 

jmp 



h,lstble 
listl 



; Beginning of the list device status 



***************************************************************** 

* * 

* If customizing I/O routines is being performed, the table * 

* below should be modified to reflect the changes. All I/O * 

* devices are decoded out of iobyte and the jump is taken from * 

* the following tables. * 

* * 

***************************************************************** 



* 

* 



console input table 



citble dw 
dw 
dw 
dw 



citty 
cicrt 
reader 
ciucl 



* 

* console output table 
* 



; Input from tty 

; Input from crt 

; Input from reader 

; Input from user console 1 



cotble 


dw 
dw 
dw 


cotty 
cocrt 
list 




dw 


coucl 


* 

* list 
* 


device 


table 


ltble 


dw 
dw 
dw 
dw 


cotty 
cocrt 
colpt 
coull 


* 

* punch 
* 


device 


table 


ptble 


dw 
dw 
dw 
dw 


cotty 
coptp 
coupl 
coup2 



; Output to tty 
; Output to crt 
;Output to list device 
; Output to user console 1 



; Output to tty 

; Output to crt 

rOutput to line printer 

; Output to user line printer 1 



; Output to the tty 

; Output to paper tape punch 

; Output to user punch 1 

; Output to user punch 2 



* reader device input table 
* 



rtble dw 



cittv 



rlnout from ttv 



dw 
dw 
dw 



ciptr 
ciurl 
ciur2 



* 
* 



console status table 



; Input from paper tape reader 
; Input from user reader 1 
; Input from user reader 2 



cstble dw 
dw 
dw 

dw 



cstty 
cscrt 
csreadr 
csucl 



; Status of tty 

; Status from crt 

; Status from reader 

; Status from user console 1 



* status from reader device 
* 



csrtble dw 
dw 
dw 
dw 



cstty 
csptr 
csurl 
csur2 



; Status from tty 

; Status from paper tape reader 

; Status from user reader 1 

; Status of user reader 2 



* Status from list device 
* 



stble 


dw 


ready 




dw 


ready 




dw 


lslpt 




dw 


lslpt 




endif 





; Console always ready 
;Get list status 



***************************************************************** 

* * 

* Gocpm is the entry point from cold boots, and warm boots. It * 

* initializes some of the locations in page 0, and sets up the * 

* initial DMA address (80h). ~ * 

* * 
***************************************************************** 



WW — fcmwi ■ " » ...-.—,.,- t i — nn- ; ■ i rr y m 1 1 i n mmmmmmwm <m m i mn m u m - 



gocpm lxi 


h,buff 


call 


setdma 


mvi 


a, ( jmp) 


sta 


wbot 


sta 


entry 


lxi 


h , wboote 


shld 


wbot+1 


lxi 


h,bdos+6 


shld 


entry+1 


xra 


a 


sta 


buf sec 


sta 


bufwrtn 


Ida 


cdisk 


mov 


c, a 


Ida 


cwflg 


ana 


a 


lxi 


d, coldbeg 


mvi 


a, coldend 


jz 


cldcmnd 


lxi 


d,warmbeg 


mvi 


a,warmend 


cldcmnd lxi 


h, ccp+8 


sta 


ccp+7 


mov 


b, a 


call 


mov lop 


Ida 


cwf la 



; Set up initial DMA address 

; Initialize jump to warm boot 

; Initialize jump to BDOS 
; Address in warm boot jump 

;Address in BDOS jump 

;A <- 

;Disk Jockey buffer empty 

;Set buffer not dirty flag 

;Jump to CP/M with currently selected disk in C 



; Beginning of initial command 
-coldbeg+1 ; Length of command 



-warmbeg+1 

; Command buffer 





ana 


a 




Ida 


autoflg 




jz 


cldbot 




rar 




cldbot 


rar 






DC 


ccp 




Ump 


ccp+3 



cwflg db 







; Enter CP/M 

; Cold/warm boot flag 



***************************************************************** 

* * 

* The following byte determines if an initial command is to be * 

* given to CP/M on warm or cold boots. The value of the byte is * 

* used to give the command to CP/M: 



* 
* 
* 
* 
* 
* 

* 
***************************************************************** 



* 

* 3 = never give command. 

* 1 = give command on cold boots only. 

* 2 = give the command on warm boots only. 

* 3 = give the command on warm and cold boots. 
* 



autoflg db 2^ | 



;Auto command feature 



***************************************************************** 

* * 

* If there is a command inserted here, it will be given if the * 

* auto feature is enabled. * 

* For Example : * 

* * 

* coldbeg db 'MBASIC MYPROG' * 

* coldend db * 

* * 

* 
* 

* * 

***************************************************************** 

1 SUBMIT ZTAZTtJP 1 

~ lJ - ?Cold boot command goes here 


■ ■ 





* will execute microsoft basic, and mbasic will execute the 

* "MYPROG" basic program. 



coldbeg db 
coldend db 
warmbeg db 
warraend db 



;Warm boot command goes here 




***************************************************************** 

* * 

* Wboot loads in all of CP/M except the CBIOS, then initializes * 

* system parameters as in cold boot. See the Cold Boot Loader * 

* listing for exactly what happens during warm and cold boots. * 

* * 

***************************************************************** 



wboot 


lxi 


sp , tpa 




mvi 


a,l 


wf lg 


equ 


$-1 




ana 


a 




mvx 


a,l 




sta 


wf lg 




sta 


cwflg 




Dz 


gocpm 




xra 


a 




sta 


wflg 




raov 


c, a 




if 


( maxhd 




lxi 


h .ceo- 



;Set up stack pointer 

;Test if beginning or 

; ending a warm boot 



;Set cold/warm boot flag 



(maxhd ne 0) and first ; Supply Warm Boot from Hard Disk ? 
3h r Initial DMA address 





push 


h 




sta 


head 




mvi 


a, 4 




push 


psw 




call 


hddrv 




mvi 


c,0 




call 


hdtrk 


41 warmlod 


POP 


psw 




Pop 


h 




inr 


a 




sta 


hdsectr 




opi 


16 




jz 


wboot 




inr 


h 




inr 


h 




shld 


hdadd 




push 


h 




push 


psw 


warrard 


lxi 


b, retries* 100h+0 


4) wrmread 


push 


b 




call 


hdread 




pop 


b 




jnc 


warmlod 




dcr 


b 




jnz 


wrmread 




hit 






endif 






if 


(max flop ne 0) a 




call 


d jdrv 




mvi 


c,0 




call 


djden 




mvi 


c,0 




call 


djside 




mvi 


a, 15 




sta 


newsec 




lxi 


h,ccp-100h 




shld 


newdma 




call 


warmlod 




lxi 


b,ccp+500h 




call 


djdma 




mvi 


c,8 




call 


djsec 




call 


warmrd 




jmp 


ccp+503h 


4| warmlod 


mvi 


a, 15 


newsec 


equ 


$-1 




inr 


a 




inr 


a 




cpi 


27 




jo 


nowrap 




sui 


9 




cpi 


19 




rz 






lhld 


newdma 




lxi 


d,-480h 




dad 


d 




shld 


newdma 


nowrap 


sta 


newsec 




mov 


c, a 




call 


djsec 




lxi 


h,ccp-100h 


newdma 


equ 


$-2 




lxi 


d,100h 




dad 


d 



•Save first sector 
Select drive A 

•Home the drive 
? Restore sector 
r Restore DMA address 



(Past BDOS ? 

•Yes, all done 

r Update DMA address 



; Retry counter 
• Save the retry count 
•Read the sector 

rTest for error 
Update the error count 
;Keep trying if not to many errors 
•Can't warm boot 



and not first ; Supply Warm Boot from 2D ? 
; Select drive A 
;Select single density 

; Select side 

; Initialize the sector to read 

;And the DMA address 

;Read in CP/M 

;Load address for rest of warm boot 



rPrevioust sector 

; Update the previous sector 

;Was it the last ? 

;Yes 



;Save the new sector to read 

;Get the previous DMA address 
; Update the DMA address 





shld 


newdma 




mov 


b,h 




mov 


c,l 




call 


d j dma 




call 


warmrd 




jrap 


v/armlod 


warmrd 


lxi 


b,retri 


wrmread 


push 


b 




call 


djtrk 




call 


djread 




Pop 


b 




rnc 






dcr 


b 




jnz 


wrmread 




]mp 


djerr 




endif 





;Save the DMA address 
;Set the DMA address 



b,retries*100h+0;Maximum # of errors 

;Set the track 
; Read the sector 

; Continue if successful 

;Keep trying 



***************************************************************** 

* * 

* Setsec just saves the desired sector to seek to until an * 

* actual read or write is attempted. * 

* * 

***************************************************************** 

setsec mov h,b. 

mov 1 , c 

shld cpmsec 
donop ret 

***************************************************************** 

* * 

* Setdma saves the DMA address for the data transfer. * 

* * 

***************************************************************** 



setdma mov h,b 

mov 1 , c 

shld cpmdma 
ret 



;hl <- be 

;CP/M dma address 



***************************************************************** 

* * 

* Home is translated into a seek to track zero. * 

* * 

***************************************************************** 



home 



mvi 



c,0 



; Track to seek to 



***************************************************************** 

* * 

* Settrk saves the track # to seek to. Nothing is done at this * 

* point, everything is deffered until a read or write. * 

* * 
***************************************************************** 



settrk mov 
sta 
ret 



a,c 
cpmtrk 



;A <- track # 
;CP/M track # 



***************************************************************** 

* * 

* Sectran translates a logical sector # into a physical sector * 

* #. ' * 

* * 

***************************************************************** 





if 


{maxhd ne 0) 


sectran 


Ida 


cpmdrv 




if 


first 




cpi 


maxhd* logdsk 
tranhd 




else 






cpi 
jnc 


max flop 
tranhd 




endif 






endif 





if 



sectran 


equ 
endif 


? 




if 


max flop ne 


tranfp 


inx 


b 




push 


d 




push 


b 




call 


getdpb 




mov 


a,m 




ora 


a 




rar 






sub 


c 




push 


psw 




jm 


sidetwo 


sidea 


POP 


psw 




pop 


b " 




pop 


d 


sideone 


xchg 






dad 


b 




mov 


l,m 




mvi 


h,0 




ret 




side two 


lxi 


b,15 




dad 


b 




mov 


a,m 




ani 


8 




jz 


sidea 




pop 


psw 




POP 


b 




cm a 






inr 


a 




mov 


c,a 




pop 


d 




call 


sideone 




mvi 


a,80h 




ora 


h 




mov 


h,a 




ret 






endif 






if 


maxhd ne 


tranhd 


mov 


h,b 




mov 


l,c 




inx 


h 




ret 






endif 





; Get the Drive Number 
;Over the # of hard disks ? 
;Over the # of floppies ? 



(maxhd eq 0) or (maxflop eq 0) ;Just one type ? 



; Floppy translation 

;Save table address 

; Save sector # 

;Get DPB address into HL 

;Get # of CP/M sectors/track 

;Clear cary 

; Divide by two 

jSave adjusted sector 

jDiscard adjusted sector 
; Restore sector requested 
;Restor address of xlt table 
;hl <- & (translation table) 
;bc = offset into table 
;hl <- physical sector 



;Offset to side bit 

;Test for double sided 

; Media is only single sided 

?Retrieve adjusted sector 

;Make sector request positive 

;Make new sector the requested sector 



;Side two bit 

; and sector 



;Hard Disk translation routine 



**************************************************** 

* * 

* Sist-rlrv Rfllpot-s th<=> n^x-f- ririvs -hn hp nsp>d in re>ad /wr i te* * 



* 
* 

* 
* 
* 
* 
* 
* 
* 



operations. If the drive has never been selected before, a 
parameter table is created which correctly describes the 
diskette currently in the drive. Diskettes can be of four 
different sector sizes: 

1) 128 bytes single density. 

2) 256 bytes double density. 

3) 512 bytes double density. 

4) 1024 bytes double density. 



* 
* 
* 
* 
* 

* 
* 
* 
* 



***************************************************************** 



setdrv 



mov 
sta 
cpi 

jnc 
mov 
ani 
jnz 

if 
Ida 

if 
cpi 

jc 

sui 

else 

cpi 

jnc 

endif 

end if 



a,c ; Save the drive # 

cpmdrv 

maxflop+(maxhd*logdsk) ; Check for a valid drive # 

zret ; Illegal drive # 

a,e ;Test if drive ever logged in before 

1 

setdrvl ;Bit of E = -> Never selected before 

(maxhd ne 0) and (maxflop ne 0) ; Both types ? 
cpmdrv ;Get the Drive Number 

first 

maxhd*logdsk ;Over the # of hard disks ? 

drvhd 

maxhd* logdsk 



maxflop 
subfp 



;Over the # of floppies ? 



flopf lg 



clopp 



f lopok 



if 

mov 

mvi 

equ 

ana 

jnz 

mvi 

lxi 

mvi 

cmp 

jnz 

dcr 

jnz 

call 

mvi 

sta 

endif 

if 

lxi 

shld 

mvi 

sta 
call 

jc 

call 

ani 

push 

rar 

lxi 

mov 

mvi 

dad 

push 

Ml 1 



(maxflop ne 0) and first 



c,a 

a,0 

$-1 

a 

flopok 

b,17 

h,d jboot 

a,(jmp) 

m 

zret 

b 

clopp 

d jboot 

a, 1 

flopflg 

maxflop ne 

h,l 

truesec 

a,l 

cpmtrk 

fill 

zret 

d jstat 

0ch 

psw 

h,xlts 
e, a 
d,0 

d 
h 



; Save drive # 

;Have the floppies been accessed yet ? 



^Floppies havn't been accessed 

; Check if 2D controller is installed 



; Initialize the controller 
; Save 2D initialized flag 



;Select sector 1 of track 1 



;Flush buffer and refill 
;Test for error return 
;Get status on current drive 
; Strip off unwanted bits 
;Used to select a DPB 

rTable of XLT addresses 



;Save pointer to proper XLT 
? f?*»-f- DPH nninf-er into DE 



xchg 




# pop 


d 


mvi 


b,2 


call 


mov lop 


lxi 


d,8 


dad 


d 


push 


h 


+ lhld 


origin+7 


inx 


h 


mov 


a,m 


xri 


3 


mov 


l,a 


^1 mvi 


h, (origin+ 


mov 


a ,m 


ani 


dblsid 


# lxi 


d,dpbl23s 


jnz 


sideok 


lxi 


d,dpbl2Sd 


sideok xchg 




Pop 


d 


POP 


psw 


• ral 




ral 




mov 


c,a 


41 mvi 


b,0 


dad 


b 


xchg 




4) mov 


m, e 


inx 


h 


mov 


m,d 


£ endif 




if 


(maxhd ne 


• jmp 


setdrvl 


if 


not first 


subfp . sui 


maxflop 


^l endif 




endif 




• if 


maxhd ne 3 


drvhd call 


divlog 


mov 


a,c 


sta 


hddisk 


call 


drvptr 


mov 


a,m 


9 -*- nr 


a 


jnz 


setdrvl 


ori 


null 


out 


hdfunc 


mvi 


a, scenbl 


out 


hdcntl 


4| mvi 


c,239 


lxi 


h,0 


tdelay dcx 


h 


4| mov 


a # h 


ora 


1 


cz 


dcrc 


4| rz 




in 


hdstat 


ani 


drvrdy 


4| jnz 


tdelay 


if 


sdelay 


£ lxi 


h,0 


mvi 


p . index 



; Number of bytes to move 
;Move the address of XLT 
;Offset to DPB pointer 
;HL <- &DPH.DPB 

Get address of DJ terminal out routine 
Bump to look at address of 
uart status location 

for proper rev I 

; Check double sided bit 

; Base for single sided DPB ' s 

;Base of double sided DPB ' s 
;HL <- DBP base, DE <- &DPH.DPB 
; Restore DE (pointer into DPH) 
; Offset to correct DPB 



; Adjust for proper rev DJ 



;Put DPB address in DPH 



; Skip over the Hard Disk select 
;Adjust the drive # 



; Divide by logical disks per drive 



; Select drive 

; Enable the controller 

;Wait approx 2 minutes for Disk to ready 



rTest if ready yet 



;Time one revolution of the drive 





in 


hdstat 




ana 


c 




mov 


b,a 


indxl 


in 


hdstat 




ana 


c 




cmp 


b 




jz 


indxl 


indx2 


inx 


h 




in 


hdstat 




ana 


c 




cmp 


b 




jnz 


indx2 




if 


ml0 




dad 


h 




endif 






shld 


settle 




endif 






call 


hdhome 




endif 




setdrvl 


call 


getdpb 




lxi 


b,15 




dad 


b 




mov 


a,m 




ani 


7h 




sta 


secsiz 




mov 


a,m 




rar 






rar 






rar 






rar 






ani 


0fh 




sta 


secpsec 




xchg 






ret 




zret 


lxi 
ret 


h,0 




if 


maxhd ne 


dcrc 


dcr 
ret 


c 


divlog 


mvi 


c,0 


divlogx 


sui 
re 


logdsk 




inr 


c 




jmp 


divlogx 




endif 





;Save current index level in B 
;Loop util index level changes 



; Start counting until index returns to 
; previous state 



;Save the Count for timeout delay 



;Get address of DPB in HL 
; Offset to sector size 

;Get sector size 



;HL <- DPH 
;Seldrv error exit 

;Conditional decrement C routine 



***************************************************************** 
* * 

* 
* 
***************************************************************** 



Getdpb returns HL pointing to the DPB of the currently 

* selected drive, DE pointing to DPH. 
* 



getdpb 


Ida 


cpmdrv 




mov 


l,a 




mvi 


h,0 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




lxi 


d,dpbase 




dad 


d 



;Form offset 



;Base of DPH ' s 



push 

lxi 

dad 


h 
d, 

d 


10 


mov 


a, 


m 


inx 


h 




mov 


h, 


m 


mov 


1. 


a 


pop 
ret 


d 





if 


max flop ne 


dv/ 


xltl23 ; 


dw 


xlt256 ; 


dw 


xlt512 


dw 


xltl24 


endif 





;Save address of DPH 
; Offset to DPB 

;Get low byte of DPB address 

;Get low byte of DPB 



***************************************************************** 

* * 

* Xlts is a table of address that point to each of the xlt * 

* tables for each sector size. * 

* * 

***************************************************************** 



xlts dw xltl23 ;Xlt for 128 byte sectors 

:Xlt for 256 byte sectors 

Xlt for 512 byte sectors 

•Xlt for 1024 byte sectors 



***************************************************************** 

* * 

* Write routine moves data from memory into the buffer. If the * 

* desired CP/M sector is not contained in the disk buffer, the * 

* buffer is first flushed to the disk if it has ever been * 

* written into, then a read is performed into the buffer to get * 

* the desired sector. Once the correct sector is in memory, the * 

* buffer written indicator is set, so the buffer will be * 

* flushed, then the data is transferred into the buffer. * 

* * 

***************************************************************** 

write mov a,c ; Save write command type 

Set write command 
This "mvi b" instruction causes 
the following "xra a" to 
be skipped over. 

***************************************************************** 

* * 

* Read routine to buffer data from the disk. If the sector * 

* requested from CP/M is in the buffer, then the data is simply * 

* transferred from the buffer to the desired dma address. If * 

* the buffer does not contain the desired sector, the buffer is * 

* flushed to the disk if it has ever been written into, then * 

* filled with the sector from the disk that contains the * 

* desired CP/M sector. * 

* * 

***************************************************************** 

read xra a ; Set the command type to read 

sta rdwr ;Save command type 

***************************************************************** 

* * 

* Redwrt calculates the physical sector on the disk that * 

* contains the desired CP/M sector, then checks if it is the * 

* sector currently in the' buffer. If no match is made, the * 

* buffer is flushed if necessary and the correct sector read * 

* from the disk. * 



mov 


a,c 




sta 


writtyp 




mvi 


a,l 




db 


(mvi) or 


(b*8) 



********************* ******************************************** 



redwrt 


mvi 


b,0 


secsiz 


equ 


$-1 




lhld 


cpmsec 




mov 


a,h 




ani 


80h 




mov 


c,a 




mov 


a,h 




ani 


7fh 




mov 


h,a 




dcx 


h 


divloop 


dcr 


b 




jz 


divdone 




ora 


a 




mov 


a,h 




rar 






mov 


h,a 




mov 


a,l 




rar 






mov 


1, a 




jmp 


divloop 


divdone 


inx 


h 




mov 


a,"h 




ora 


c 




mov 


h,a 




shld 


truesec 




lxi 


h , cpmdrv 




lxi 


d,bufdrv 




mvi 


b, 5 


dtslop 


dcr 


b 




jz 


move 




ldax 


d 




cmp 


m 




inx 


h 




inx 


d 




jz 


dtslop 



;The is modified to contain the log2 
; of the physical sector size/128 
; on the currently selected disk. 

;Get the desired CP/M sector # 

; Save only the side bit 
; Remember the side 

; Forget the side bit 

? Temporary adjustment 
; Update repeat count 



; Divide the CP/M sector # by the size 
; of the physical sectors 



; Restore the side bit 

;Save the physical sector number 

; Pointer to desired drive, track, and sector 

;Pointer to buffer drive, track, and sector 

; Count loop 

;Test if done with compare 

;Yes, match. Go move the data 

;Get a byte to compare 

rTest for match 

;Bump pointers to next data item 

; Match, continue testing 

***************************************************************** 

* * 

* Drive, track, and sector don't match, flush the buffer if * 

* necessary and then refill. * 

* * 

***************************************************************** 



call 
re 



fill 



;Fill the buffer with correct physical sector 
;No good, return with error indication 



***************************************************************** 

* * 

* Move has been modified to cause either a transfer into or out * 

* the buffer. * 

* * 

***************************************************************** 



move 



Ida 
dcr 



ani 
seeps ec equ 

mov 
mvi 
dad 
dad 



cpmsec 
a 


$-1 

l.a 
h,0 
h 
h 



;Get the CP/M sector to transfer 

;Adjust to proper sector in buffer 

; Strip off high ordered bits 

;The is modified to represent the # of 

; CP/M sectors per physical sectors 

;Put into HL 

;Form offset into buffer 





dad 


h 




dad 


h 




dad 


h 




dad 


h 




dad 


h 




lxi 


d, buffer 




dad 


d 




xchg 






lxi 


h,0 


cpmdma 


equ 


$-2 




mvi 


a,0 


rdwr 


equ 


$-1 




ana 


a 




jnz 


into 


outof 


call 


mover 




xra 


a 




ret 




into 


xchg 






call 


mover 




mvi 


a, 1 




sta 


bufwrtn 




mvi 


a,0 


writtyp 


equ 


$-1 




dcr 


a 




mvi 


a,0 




sta 


writtyp 




rnz 





;Beginning address of buffer 

;Form beginning address of sector to transfer 

;DE = address in buffer 

;Get DMA address, the is modified to 

; contain the DMA address 

;The zero gets modified to contain 

; a zero if a read, or a 1 if write 

; Test v/hich kind of operation 
; Transfer data into the buffer 



♦Move the data, HL = destination 
; DE = source 

;Set buffer written into flag 
; Check for directory write 



;Set no directory write 
;No error exit 



***************************************************************** 

* * 

* Flush writes the contents of the buffer out to the disk if * 

* it has ever been written into. * 

* * 

***************************************************************** 



flush mvi 



a,0 



bufwrtn equ 


$-1 


ana 


a 


rz 




if 


( maxhd ne ) 


lxi 


h,djyrite 


lxi 


d,hdwrite 


call 


decide 


else 




if 


maxhd ne 


lxi 


h,hdwrite 


endif 




if 


maxflop ne 


lxi 


h,djwrite 


endif 




endif 





;The is modified to reflect if 

; the buffer has been written into 

;Test if written into 
;Not written, all done 



;Write operation for Disk Jockey 
;Write operation for Hard Disk 



***************************************************************** 

* * 

* Prep prepares to read/write the disk. Retries are attempted. * 

* Upon entry, H&L must contain the read or write operation * 

* address. * 

* * 

***************************************************************** 



prep 



xra 
sta 
shld 



ntvi 
retrylp push 
Ida 

if 

if 

cpi 

jc 

sui 

else 

cpi 

jc 

sui 

endif 



a ; Reset buffer written flag 

bufwrtn 

retryop ;Set up the read/write operation 

b, retries ;Maximum number of retries to attempt 

b ;Save the retry count 

bufdrv ;Get drive number involved in the operation 

(maxhd ne 0) and (max flop ne 0) 

first 

maxhd* logdsk 

noadjst 

maxhd* logdsk 

maxf lop 
noadjst 
max flop 



noadjst mov 
lxi 

lxi 

call 

else 

mov 

if 

call 

endif 

if 

call 

endif 

endif 



c,a 

h,d jdrv 
d,hddrv 
decidgo 

c, a 

maxhd ne 
hddrv 

max flop ne 
djdrv 



;Select drive 



; Select the drive 



Ida 
ana 
mov 
push 



buftrk 
a 

c,a 
b 



;Test for track zero 



if 

lxi 

lxi 

cz 

else 

if 

cz 

endif 

if 

cz 

endif 

endif 



(maxhd ne 0) and (max flop ne 0) 
h,djhome 
d , hdhome 
decidgo 

maxhd ne 
hdhome 

max flop ne 

djhome ;Home the drive if track 



pop 



; Re store track # 



if 


(maxhd ne 0) and (max flop ne 0) 


lxi 


h,djtrk 


lxi 


d,hdtrk 


call 


decidgo 


else 




if 


maxhd ne 


call 


hdtrk 


endif 




if 


max flop ne 


call 


djtrk ;Seek to proper 


endif 




endif 




lhld 


bufsen 



mov 
rlc 
ani 
mov 

if 

lxi 

lxi 

call 

else 

if 

call 

endif 

if 

call 

endif 

endif 



a,h 

1 
c, a 



;Get sector involved in operation 
;Bit of A equals side # 
; Strip off unnecessary bits 
;C <- side # 



(maxhd ne 0) and (maxflop ne 3) 

h,djside 

d,hdside 

decidgo 

maxhd ne 
hdside 



maxflop ne 
d jside 



;Select the side 



lhld 

mov 

ani 

mov 

mov 



buf sec 
a,h 
7fh 
b, a 
c,l 



;Strip off side bit 
;C <- sector # 



if 
lxi 

lxi 

call 

else 

if 

call 

endif 

if 

call 

endif 

endif 



(maxhd ne 0) and (maxflop ne 0) 
h,djsec 
d,hdsec 
decidgo 

maxhd ne 
hdsec 



maxflop ne 3 
d jsec 



jSelect the side 



lxi 

if 

lxi 

lxi 

call 

else 

if 

call 

endif 

if 

call 

endif 

endif 



b, buffer 



;Set the DMA address 



(maxhd ne 0) and (maxflop ne 0) 
h,d jdma 
d , hddma 

decidgo 

maxhd ne 
hddma 



maxflop ne 
d jdma 



rSelect the side 



call 
retryop equ 
pop 
mvi 
rnc 
dcr 
stc 
mvi 
rz 
mov 
cpi 
jnz 





$-2 

b 

a,0 

b 

a,0ffh 

a,b 

retries/2 

retrylp 



;Get operation address 

; Re store the retry counter 

;No error exit status 

; Return no error 

; Update the retry counter 

; Assume retry count expired 

; Error return 



;Try again 



nush 



if 


(maxhd ne 0) 


Ixi 


hjdjhome 


lxi 


d , hdhome 


call 


decidgo 


else 




if 


maxhd ne 


call 


hdhome 


end if 




if 


maxflop ne 


call 


d jhome 


end if 




endif 




pop 


b 


jrap 


retrylp 



:Horae the drive if track 



**************************************************************** 

* * 

* Fill fills the buffer with a new sector from the disk. * 

* * 

***************************************************************** 



fill 



fread 



call 


flush 


re 




lxi 


d , cpmdrv 


lxi 


h,bufdrv 


mvi 


b,4 


call 


movlop 


Ida 


rdwr 


ana 


a 


jz 


fread 


Ida 


writtyp 


dcr 


a 


dcr 


a 


rz 




call 


getdpb 


lxi 


d,15 


dad 


d 


mov 


a,m 


ani 


3 


dcr 


a 


rz 




equ 


$ 


if 


(maxhd ne 0) 


lxi 


h,djread 


lxi 


d,hdread 


call 


decide 


else 




if 


maxhd ne 


lxi 


h,hdread 


endif 




if 


maxflop ne 


lxi 


h,d jread 


endif 




endif 




jmp 


prep 



;Flush buffer first 

; Check for error 

; Update the drive, track, and sector 

; Number of bytes to move 
;Copy the data 



•Select the side 



;Select drive, track, and sector. 
; Then read the buffer 



***************************************************************** 
* * 

* 
* 
* 
***************************************************************** 



* Mover moves 128 bytes of data. Source pointer in DE, Dest 

* pointer in HL. 
* 



mover 


ravi 


b,128 


movlop 


ldax 


d 




mov 


m,a 




inx 


d 




mx 


h 




dcr 


b 




jnz 


movlop 




ret 





; Length of transfer 
;Get a bte of source 
jMove it 
; Bump pointers 

; Update counter 

.•Continue moving until done 



***************************************************************** 

* * 

* Routines to decide which controller to use. * 

* * 

***************************************************************** 



if 
decidgo call 
pchl 
end if 



(maxhd ne 0) and (maxflop ne 3) 
decide ;which controller ? 



if 
decide Ida 
if 
cpi 
rnc 
else 
cpi 
re 

endif\ 
xchg 
ret 
endif 



(maxhd ne 0) and (maxflop ne 0) 

bufdrv ;Get proper routine into H&L, based 

first ; on currently selected drive 

maxhd* logdsk 



maxflop 



***************************************************************** 

* * 

* The following is the equivalent of the lowest level drivers * 

* for the Hard Disk. * 

* * 

***************************************************************** 



if 


maxhd ne 


hddrv mov 


a,c 


call 


divlog 


mov 


a, c 


sta 


hddisk 


ori 


null 


out 


hdfunc 


mvi 


a,wenabl 


out 


hdcntl 


ret 




hdhome call 


drvptr 


mvi 


m, 


if 


sdelay 


stepo in 


hdstat 


ani 


tkzero 


jz 


delay 


mvi 


a,l 


stc 




call 


accok 


jmp 


stepo 



; Select Hard Disk drive 
;Get the physical drive # 

; Select the drive 



;Set track to zero 



;Test status 
;At track zero ? 



;Take one step out 



else 





in 


hdstat 




ani 


tkzero 




rz 






xra 


a 




jmp 


accok 




endif 






if 


sdelay 


delay 


lxi 


h,0 


settle 


equ 


$-2 


4) deloop 


dcx 


h 




mov 


a,h 




ora 


1 




inx 


h 




dcx 


h 




jnz 


deloop 




ret 






endif 




# hdtrk 


call 


drvptr 




mov 


e ,m 




mov 


m,c 




mov 


a, e 




sub 


c 




rz 






cmc 






jc 


hdtrk2 




cma 






inr 


a 




if 


not sdelay 


hdtrk2 


jmp 
else 


accok 


hdtrk 2 


call 


accok 




jmp 


delay 




endif 




accok 


mov 


b, a 




call 


build 


sloop 


ani 


nstep 




out 


hdfunc 




ori 


pstep 




out 


hdfunc 




dcr 


b 




jnz 


sloop 




jmp 


wsdone 


hddma 


mov 


h,b 




mov 


l,c 




shld 


hdadd 


hdside 


equ 
ret 


$ 


wsdone 


in 


hdstat 




ani 


complt 




jz 


wsdone 




ret 






if 


m26 


hdsec 


mvi 


a,01fh 




ana 


c 




cz 


getspt 




sta 


hdsectr 




mvi 


a,0eflh 




ana 


c 




rlc 






rlc 





;Get delay 
;Wait 20ms 



?Get pointer to current track 
;Get current track 
; Update the track 
;Need to seek at all ? 



;Get carry into direction 



;Prep for build 

;Get step pulse low 

; Output low step line 

;Set step line high 

; Output high step line 

; Update repeat count 

;Keep going the required # of tracks 



;Save the DMA address 



;Wait for seek complete to finish 



;For compatibility with cbios rev 2.3, 2.4 



rlc 

sta 

getspt mvi 

ret 



head 
a,hdspt 



else 



hdsec 


raov 


a,c 




call 


divspt 




adi 


hdspt 




ana 


a 




cz 


getspt 




sta 


hdsectr 




mov 


a,c 




sta 


head 


getspt 


mvi 


a, hdspt 




dcr 


c 




ret 




divspt 


mvi 


c, 


divsptx 


sui 
re 


hdspt 




inr 


c 




jmp 


divsptx 




end if 




hdread 


call 
re 


hdprep 




xra 


a 




out 


hdcmnd 




cm a 






out 


hddata 




out 


hddata 




mvi 


a,rsect 




out 


hdcmnd 




call 


process 




re 






xra 


a 




out 


hdcmnd 




mvi 


b,seclen/4 




lxi 


h,0 


hdadd 


equ 


$-2 




in 


hddata 




in 


hddata 


rtloop 


in 


hddata 




mov 


m, a 




inx 


h 




in 


hddata 




mov 


m, a 




inx 


h 




in 


hddata 




mov 


m, a 




inx 


h 




in 


hddata 




mov 


m,a 




inx 


h 




dcr 


b 




jnz 


rtloop 




ret 




hdwrite 


call 
re 


hdprep 




xra 


a 




out 


hdcmnd 




lhld 


hdadd 




mvi 


b. seclen/4 



;Read sector command 



;Move four bytes 



; Prepare header 





wtloop 


mov 


a ,m 






out 


hddata 






inx 


h 






mov 


a,m 






out 


hddata 






inx 


h 






mov 


a,m 






out 


hddata 






inx 


h 






mov 


a,m 






out 


hddata 






inx 


h 






dcr 


b 






jnz 


wtloop 






mvi 


a,wsect 






out 


hdcmnd 






call 


process 






re 








mvi 


a,wfault 






ana 


b 






stc 








rz 








xra 


a 






ret 






process 


in 


hdstat 






mov 


b, a 






ani 


opdone 






jz 


process 






mvi 


a,dskclk 






out 


hdcntl 






in 


hdstat 






ani 


tmout 






stc 








rnz 








in 


hdreslt 






ani 


retry 






stc 








rnz 








xra 


a 






ret 






hdprep 


in 


hdstat 






ani 


drvrdy 






stc 








rnz 








mvi 


a, isbuf f 






out 


hdcmnd 






call 


build 






ori 


■3ch 






out 


hdfunc 






Ida 


head 






out 


hddata 






call 


drvptr 






mov 


a,m 






out 


hddata 






ana 


a 






mvi 


b,30h 






3 Z 


zkey 






mvi 


b,0 




zkey 


mvi 


a,0 




hdsectr 


equ 


$-1 






out 


hddata 






mov 


a,b 


m 




out 


hddata 






mvi 


a . dskclk 



;Move 4 bytes 



; Issue write sector command 



;Wait for command to finish 



; Timed out ? 



;A.ny retries ? 



; Initialize pointer 



;Form head byte 
;Form track byte 



;Form sector byte 





out 


hdcntl 




ravi 


a , wenabl 




out 


hdcntl 




xra 


a 




ret 




drvptr 


lhld 
xchg 


hddisk 




mvi 


d,0 




lxi 


h, drives 




dad 


d 




ret 




build 


ravi 


a,0 


head 


equ 
ral 
ral 
ral 
ral 


$-1 




ori 





hddisk 


equ 


$-1 




xri 


0f0h 




ret 




drives 


equ 


$ 




rept 


maxhd 




db 


0ffh 




endm 






endif 





t£ <V P A^ ^ 



t^,/ 



***************************************************************** 

* 

* 

* 

* 

* 

* 

* 

* 



* 
* 
* 
* 
* 
* 
* 
* 
***************************************************************** 



Xlt tables (sector skew tables) for CP/M 2.0. These tables 
define the sector translation that occurs when mapping CP/M 
sectors to physical sectors on the disk. There is one skew 
table for each of the possible sector sizes . Currently the 
tables are located on track sectors 6 and 3. They are 
loaded into memory in the Cbios ram by the cold boot routine 



xltl28 



xlt256 



xlt512 



if 
db 
db 

db 
db 
db 
db 
db 

db 
db 
db 
db 
db 
db 
db 
db 
db 
db 

db 
db 
db 
db 
db 



max flop ne 



1,7,13,19,25 

5,11,17,23 

3,9,15,21 

2,8,14,20,26 

6,12,18,24 
4,10,16,22 



1,2,19,20,37,38 

3,4,21,22,39,40 

5,6,23,24,41,42 

7,8,25,26,43,44 

9,10,27,28,45,46 

11,12,29,30,47,43 

13,14,31,32,49,50 

15,16,33,34,51,52 

17,18,35,36 



1,2,3,4,17,18,19,20 

33,34,3 5,36,49,50,51,52 

5,6,7,8,21,22,23,24 

37.38.39.40.53.54.55.56 



db 
db 

db 

db 



9,10,11,12,25,26,27,28 
41,42,43,44,57,58,59,63 

13,14,15,16,29,30,31,32 
45,46,47,48 



xltl24 db 

db 
db 
db 
db 
db 

db 
db 
db 





1,2,3,4,5,6, 7,8 

25,26,27,28,29,30,31,32 

49,50,51,52,53,54,55,56 

9,10,11,12,13,14,15,16 

33,34,35,36,37,38,39,40 

57,58,59,60,61,62,63,64 

17,18,19,20,21,22,23,24 

41,42,43,44,45,46,47,48 



************************************************************ 

* * 

* Each of the following tables describes a diskette with the * 

* specified characteristics. * 

* * 

***************************************************************** 



***************************************************************** 

* * 

* The following DPB defines a diskette for 128 byte sectors, * 

* single density, and single sided. * 

* * 

***************************************************************** 



dpbl28s dw 


26 


db 


3 


db 


7 


db 





dw 


242 


dw 


63 


db 


0c0h 


db 





dw 


16 


dw 


2 


db 


lh 



CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 



sectors/ track 



(#cpm sectors/physical sector) 
(#bytes per sector/128) + 1 + 
double sided. 



-1) + 



***************************************************************** 

* * 

* 

* 

* * 
***************************************************************** 



* The following DPB defines a diskette for 256 byte sectors, 

* double density, and single sided. 



256s dw 


52 


db 


4 


db 


15 


db 





dw 


242 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


12h 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) 

log2(#bytes per sector/128) + 1 + 

8 if double sided. 



-1) + 



***************************************************************** 



* The following DPB defines a diskette as 512 byte sectors, 

* double density, and single sided. 



* 

* 



* 

* * 

***************************************************************** 



dpb512s 


dw 


60 




db 


4 




db 


15 




db 







dw 


280 




dw 


127 




db 


c 0b 




db 







dw 


32 




dw 


2 




db 


33h 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpm sectors/physical sector) -1) + 

log2(#bytes per sector/128) + 1 + 

8 if double sided. 



****************************************************** *•* ********* 

* * 

* 

* 

* * 
***************************************************************** 



* The following DPB defines a diskette as 1024 byte sectors, 

* double density, and single sided. 



dpl024s dw 


64 


db 


4 


db 


15 


db 





dw 


299 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


74h 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*((#cpra sectors/physical sector) -1) + 

log2(#bytes per sector/128) + 1 + 

8 if double sided. 



***************************************************************** 

* * 

* The following DPB defines a diskette for 128 byte sectors, * 

* single density, and double sided. * 

* * 

***************************************************************** 



dpbl23d dw 


52 


db 


4 


db 


15 


db 


1 


dw 


242 


dw 


127 


db 


0c0h 


db 





dw 


32 


dw 


2 


db 


9h 



CP/M sectors/track 

BSH 
BLM 
EXM 
DSM 

DRM 
AL0 
AL1 
CKS 
OFF 



***************************************************************** 

* * 

* The following DPB defines a diskette as 256 byte sectors, * 

* double density, and double sided. * 

* * 



***************************************************************** 



56d dw 


104 


db 


4 


db 


15 


db 





dw 


436 


dw 


255 


db 


0f0h 


db 





dw 


64 


dw 


2 


db 


lah 



CP/M sectors/ track 

BSH 

BLM 

EXM 

DSM 
DRM 
AL0 
AL1 
CKS 
OFF 



*************************************************************** 
* * 

* 

* * 

***************************************************************** 



The following DPB defines a diskette as 512 byte sectors, 
* double density, and double sided. 



dpb512d dw 


120 


db 


4 


db 


15 


db 





dw 


561 


dw 


255 


db 


0f0h 


db 





dw 


64 


dw 


2 


db 


3bh 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 



***************************************************************** 

* * 

* The following DPB defines a diskette as 1024 byte sectors, * 

* double density, and double sided. * 

* * 

***************************************************************** 



dpl024d dw 


128 


db 


4 


db 


15 


db 





dw 


599 


dw 


255 


db 


0f0h 


db 





dw 


64 


dw 


2 


db 


7ch 


end if 





CP/M sectors/track 

BSH 
BLM 
EXM 
DSM 
DRM 
AL0 
AL1 
CKS 
OFF 



***************************************************************** 

* * 

* The following DPB defines a 10 Megabyte Hard disk, with 512 * 

* byte sectors . * 

* * 

***************************************************************** 



dpbhdl 



if 


maxhd 


ne 







if 


m26 ne 









dw 


1024 






CP/M sectors/track 


db 


5 






BSH 


db 


31 






BLM 


db 


1 






EXM 


dw 


1 97.3 






•DSM 



dpbhd2 



dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


1 


db 


33h 


dw 


1024 


db 


5 


db 


31 


db 


1 


dw 


1973 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


64 


db 


33h 



lpbhd3 dw 


1024 


db 


5 


db 


31 


db 


1 


dw 


1973 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


127 


db 


33h 


endif 




if 


ml0 j 


dpbhdl dw 


336 


db 


5 


db 


31 


db 


1 


dw 


1269 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


1 


db 


33h 


dpbhd2 dw 


336 


db 


5 


db 


31 


db 


1 


dw 


1230 


dw 


511 


db 


gffn 


db 


0ffh 


dw 





dw 


122 


db 


33h 


endif 




if 


m20 


rlnlThrn rlw 


<=175 



ne 



DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

log2 

8 if 



(#cpm sectors/physical sector) 
(#bytes per sector/128) + 1 + 

double sided. 

sectors/track 



-1) + 



(#cpm sectors/physical sector) -1) 
(#bytes per sector/128) + 1 + 
double sided. 



cp/m 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

log2 

3 if 



sectors/ track 



(#cpm sectors/physical sector) 
(#bytes per sector/128) + 1 + 
double sided. 



-1) + 



CP/M sectors/track 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16* ( 

log2 

8 if 



(#cpra sectors/physical sector) 
(#bytes per sector/128) + 1 + 

double sided. 

sectors/track 



-1) + 



(#cpm sectors/physical sector) 
(#bytes per sector/128) + 1 + 
double sided. 



-1) + 



ne 



■np/M sectors/track 



dpbhd2 



db 


5 


db 


31 


db 


1 


dw 


2315 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


1 


db 


33h 


dw 


672 


db 


5 


db 


31 


db 


1 


dw 


2015 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


98 


db 


3 3h 



BSH 
BLM 
EXM 
DSM 
DRM 

AL0 

AL1 

CKS 

OFF 

16* (( 

log2( 

3 if 

CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*(( 

log2( 

8 if 



#cpm sectors/physical sector) 
#bytes per sector/128) + 1 + 
double sided, 
sec tors/ track 



-1) + 



#cpm sectors/ physical sector) 
#bytes per sector/128) + 1 + 
double sided. 



•1) + 



dpbhd3 



dw 


672 


db 


5 


db 


31 


db 


1 


dw 


1028 


dw 


511 


db 


0ffh 


db 


0ffh 


dw 





dw 


195 


db 


3 3h 


end if 




end if 





CP/M 

BSH 

BLM 

EXM 

DSM 

DRM 

AL0 

AL1 

CKS 

OFF 

16*( 

log2 

8 if 



sectors/ track 



(#cpm sectors/physical sector) 
(#bytes per sector/128) + 1 + 
double sided. 



-1) + 



***************************************** ************************ 

* * 

* CP/M disk parameter headers, unitialized. * 

* * 

***************************************************************** 



header 



macro 

dw 

dw 

dw 
dw 
dw 
dw 
endm 



nd,dpb 



0,0,0 

dirbuf 

dpb 

csv&nd 

alv&nd 



translation table filled in later 

; Scratch 

.•Directory buffer 

;DPB filled in later 

;Directory check vector 

; Allocation vector 



dpbase equ 



dn 

dn 

dn 



set 

if 

rept 

header 

set 

header 

set 





first 

raaxhd 

%dn,dpbhdl ; 

dn+1 

%dn,dpbhd2 

dn+1 

fm^fi no f?n ot (mO(A n<= 9i\ 



; Generate Hard Disk DPH's followed 
; by Floppy DPH ' s 



dn 



3n 



dn 

dn 
dn 

dn 



header %dn,dpbhd3 

set dn+1 

endif 

endm 

rept maxflop 

header %dn,0 

set dn+1 

endm 

else 

rept max flop 

header %dn,0 ; 

set dn+1 

endm 

rept maxhd 

header %dn,dpbhdl 

set dn+1 

header %dn,dpbhd2 

set dn+1 

if (m26 ne 0) or (m20 ne 0) 

header %dn,dpbhd3 

set dn+1 

endif 

endm 

endif 



^Generate Floppy DPH's followed by 
; HArd Disk DPH's 



***************************************************************** 
* * 

* 
* 
***************************************************************** 



* Cbios ram locations that don't need initialization. 
* 



cpmsec dw 

cpmdrv db 

cpmtrk db 

truesec dw 

bufdrv db 

buftrk db 

bufsec dw 

buffer equ $ 



;CP/M sector # 

?CP/M drive # 

;CP/M track # 

yDisk Jockey sector that contains CP/M sector 

; Drive that buffer belongs to 

;Track that buffer belongs to 

; Sector that buffer belongs to 



***************************************************************** 

* * 

* Signon message output during cold boot. * 

* * 

***************************************************************** 



hexnum 



macro 

if 

db 

else 

db 

endif 

if 

db 

else 

db 

endif 

endm 



num 

(num/16) > 9 

(num/16 and 0fh) + 'A' - 10 

(num/16 and 0fh) + '0' 

(num and 0fh) > 9 

(num and 0fh) + 'A' - 10 

(num and 0fh) + '0' 



prompt 



db 
db 
db 
db 
db 
db 

r1b> 



acr,alf ,alf 
'Morrow Designs ' 
'0'+msize/l0 
'0'+(msize mod 10) 
'K CP/M ' 
cpmrev/l0+' ' 



;CP/M memory size 
?CP/M version number 



db (cpmrev mod 10)+ '0' 

db ' , Cbios rev ' 

db revnura/l0+'0' , * . ' ;Cbios revision number 

db revnum mod 10+ ' ' 

if maxhd ne 

db 

db mrev/l0+'0'" 

db mrev mod 10+' 0* 

if (ml0 or m20) and sdelay 

db 'M' 

endif 

if (ml0 or m20) and not sdelay 

db 'F* 

endif 

endif 

db acr,alf 

db 'For ' 

if max flop ne 

db "a Disk Jockey 2D @ ' 

hexnum % (origin/256) 

db '00H ' 

endif 

if (maxhd ne 0) and (max flop ne 0) 

db 'and ' 

endif 

if maxhd ne 

if maxhd eq 1 

db 'an ' 

endif 

if maxhd eq 2 

db 'two ' 

endif 

if maxhd eq 3 

db 'three ' 

endif 

if maxhd eq 4 

db ' four ' 

endif 

if mrev eq 10 

db 'M10 ' 

endif 

if mrev eq 20 

db 'M20 ' 

endif 

if mrev eq 26 

db 'M26 ' 

endif 

db 'hard disk' 

if maxhd ne 1 

db 's' 

endif 

db ' @ ' 

hexnum %hdorg 

db ' H . ' 

endif 

db acr,alf 

if iotype ne 1 

if iotype eq 

db 'No ' 

endif 

if iotype eq 2 

db ' Switchboard ' 



endif 

if 

db 

endif 

if 

db 

endif 

db 

db 

endif 

db 



iotype eq 3 
Sol ' 

iotype eq 4 
Exidy Sorcerer ' 

configured as console.' 
acr ,alf 



g 



***************************************************************** 
* * 

* Utility routine to output the message pointed at by H&L, * 

* terminated with a null. * 

* * 

*************************************************************** 



message 


mov 


a,m 




mx 


h 




ana 


a 




rz 






push 


h 




mov 


c,a 




call 


cout 




pop 


h 




D™P 


message 



;Get a character of the message 
;Bump text pointer 
;Test for end 
; Return if done 

;Save pointer to text 
; Output character in C 
; Output the character 
; Restore the pointer 
rContinue until null reached 



***************************************************************** 

* * 

* Cboot is the cold boot loader. All of CP/M has been loaded in * 

* when control is passed here. * 

* * 

***************************************************************** 



cboot lxi 



sp , tpa 



; Set up stack 



if 


iotype ne 


mvi 


a,intioby 


sta 


iobyte 


call 


tinit 


endif 




lxi 


h, prompt 


call 


message 


xra 


a 


sta 


cpmdrv 


sta 


cdisk 


if 


(max flop ne 


sta 


flopflg 


endif 




lxi 


h,bios+3 


shld 


bios+1 


]mp 


gocpm 



; Initialize the terminal 



;Prep for sending signon message 
; Send the prompt 
; Select disk A 



ds 

if 
ds 
endif 



512-($-buffer) ;Maximum size buffer for 512 byte sectors 

maxflop ne 3 

512 ;Additional space for floppies Ik sectors 



if 
dirbuf ds 

endif 



(maxflop ne 3 ) or (maxhd ne 0) 
128 ; Directory buffer 



alloc macro 
alv&nd ds 
csv&nd ds 

endm 



nd, al ,cs 

al 

cs 



dn 



set 









if 


not first 




rept 


maxflop 




alloc 


%dn,75,64 


dn 


set 
endm 


dn+1 




rept 


maxhd 




if 


m26 ne 




alloc 


%dn, 247,0 


dn 


set 


dn+1 




alloc 


%dn, 247,0 


dn 


set 


dn+1 




alloc 


%dn, 247,0 


dn 


set 
endif 


dn+1 




if 


ml0 ne 




alloc 


%dn, 159,0 


dn 


set 


dn+1 




alloc 


%dn, 161,0 


dn 


set 
endif 


dn+1 




if 


m20 ne 




alloc 


%dn, 252,0 


dn 


set 


dn+1 




alloc 


%dn, 252,0 


dn 


set 


dn+1 




alloc 


%dn, 129,0 


dn 


set 

endif 

endm 


dn+1 



else 



dn 
dn 
dn 

dn 
dn 

dn 
dn 

dn 



rept 

if 

alloc 

set 

alloc 

set 

alloc 

set 

endif 

if 

alloc 

set 

alloc 

set 

endif 

if 

alloc 

set 

alloc 

set 

alloc 

set 

endif 

endm 

rept 

all r>/-< 



maxhd 

m25 ne 

%dn, 247,0 

dn+1 

%dn, 247,0 

dn+1 

%dn, 247,0 

dn+1 

ml0 ne 

%dn, 159,0 

dn+1 

%dn, 161,0 

dn+1 

m20 ne 

%dn, 252,0 

dn+1 

%dn, 252,0 

dn+1 

%dn, 129,0 

dn+1 



maxflop 



" *- *- -~t 1 1 I X 

endra 

endif 

end 



